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Objective 


The objective of this experiment is to: 

• Implement a procedure (to compute the FACTORIAL of 6, 5, 7 and 8). 


Procedure 

1. Study, type, emulate and run the following program step by step 
(recording the 

contents of all affected registers, flags, memory and the stack 
throughout all steps): 

jmp main 
xx db 6, 5, 7, 8 

yy dw 4 dup(?) 

main: mov cx,4 
lea bx,xx 
lea di,yy 

next: mov al, [bx] 
call fact 
mov [di],ax 
inc bx 
inc di 
loop next 
hit 


fact proc near 


push 

cx 

mov 

cl,al 

xor 

ch,ch 

mov 

ax,1 

again: mul 

cx 

loop 

again 

pop ( 

ox 

ret 


fact endp 
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ODD OX, 008 07h 
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ODD [BX + SI], 
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MOU BX, 00002h 
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00006 h 
[BX] 


MOU DI 
MOU OL 
COLL 0002 3 h 
MOU [DI], OX 
INC BX 
INC DI 
LOOP 01 7h 
HLT 

PUSH CX 
MOU CL, OL 
XOR CH, CH 


01015: 

06 006 * 

... 

▼ 








screen 

source 

reset 

aux 

vars 

debug 

stack 

flags 


S original source code 


(3 22 


01 

02 

03 

04 

05 

06 

07 

08 

09 

10 
11 
12 

13 

14 

15 

16 

17 

18 


jmp main 
xx db 6 , 5 , 7, 8 

yy dw 4 dup<?> 

main : mou cx, 4 

lea bx,xx 
lea di,yy 

next: mou al, [bxl 

call fact 
mou [di ] , ax 
inc bx 
inc di 
loop next 
hit 
fact 
push 
mou 
xor 
mo u 
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ax , 1 

i 


near 




stack 


(h) SZ 




0100 

FFFE 

FF00 < 

> 

0100 

FFFC 

0000 


0100 

FFFfi 

0000 


0100 

FFF8 

0000 


0100 

FFF6 

0000 


0100 

FFF4 

0000 


0100 

FFF2 

0000 


0100 

FFF0 

0000 


0100 

FFEE 

0000 


0100 

FFEC 

0000 

E 

0100 

FFEfl 

0000 


0100 

FFE8 

0000 


0100 

FFE6 

0000 


0100 

FFE4 

0000 


0100 

FFE2 

0000 


0100 

FFE0 

0000 


0100 

FFDE 

0000 


0100 

FFDC 

0000 


0100 

FFDA 

0000 

0100 

FFD8 

0000 

0100 

FFD6 

0000 

0100 

FFD4 

0000 

JJ 


flags 

S 

CF 

l»d 


ZF 



SF 



OF 



PF 



AF 



IF 



DF 



analyse 

1 


Random Access Memory 



0100:0080 


update 


lV table 


f list 


0100 : 
0100 : 
0100 : 
0100 : 
0100 : 
0100 : 
0100 : 
m no ■ 


0000 

0010 

0020 

0030 

0040 

0050 

0060 

aa^a 


EB 0C 06 
00 BB 02 
F5 F4 
90 90 
90 90 90 
00 00 00 
00 00 00 
qq nn no 


E2 

C3 


05 07 08 
00 BF 06 
51 80 C8 
90 90 90 
90 90 F4 
00 00 00 
00 00 00 
no gigi nn 


00 00-00 
00 80-07 
32 ED-B8 
90 90-90 
00 00—00 
00 00—00 

00 00-00 
on 


00 00 00 

E8 07 00 

01 00 F7 
90 90 90 
00 00 00 
00 00 00 
00 00 00 
nn gigi no 


00 00 

89 05 
El E2 

90 90 
00 00 
00 00 
00 00 
nn on 


B9 04 
43 47 
FC 59 
90 90 
00 00 
00 00 
00 00 
QQ gigi 


6 9** i|< 

.f|G.-|*.e .5 . . e*C< 
rj rQeii20q0.^r"' 


[££££ f- 


2. Change the value 8 in xx to 9. Emulate and run the program (press run) 
while 

watching the memory content at yy. 

Report: 

1 . Discuss why xx= 9 gives a wrong result in the above factorial 
procedure. 

Because BX cannot contain more than 4 hexadecimal 
numbers and any number greater than 8 will need more 
than 4 digits in hexadecimal 

2. Discuss: Why CX is pushed to the stack at the beginning of the 
procedure? 

Because then CL and CH will change, so we pushed it first to have its value 


3. Try to write and implement a procedure that computes the value of 
any term (up 
to 12 terms) in 

Fibonacci Sequence and return result in AX: 

F (n) = F (n-1) + F (n-2) 
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where F (0) = 0 & F(1) = 1 


that is, F (2) = F (1) + F (0) = 0 + 1 = 1 
F (3) = F (2) + F (1 ) = 1 +1 =2 
and so on 

The sequence of numbers (in decimal) will look like: 
Z (n) = 0 1 1 2 3 5 813 21 ... 

Where term(0) = 0, term(1) = 1, term(7) = 13 etc 


jmp main 

yy dw 3 dup(?) 
main: movcx,13 

lea di,yy 

next: mov ax,0 

mov dx,0 
call fact 
loop next 

hit (A 

fact proc near 
mov [di],dx 
push dx 
inc di 
inc ax 
add dx,ax 
mov [di],dx 
push dx 
inc di 

again: pop ax 

pop dx 
push ax 
add dx,ax 
mov [di],dx 
inc di 
push dx 
loop again 
pop cx 
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0100:0000 


JMP 08 h 


ADD LBX + SI J, AL 
ADD [BX + SID, AL 
ADD CBX + SI], AL 
MOU CX, 0000DL 
MOU DI, 00002 h 
MOU AX, 00000b 
MOU DX, 00000b 
CALL 0001 A b 
LOOP 0Eb 
HLT 

MOU [DI], DX 
PUSH DX 
INC DI 
INC AX 
ADD DX, AX 
MOU [DI], DX 
PUSH DX 
INC DI 
POP AX 
POP DX 
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main 


yy dw 3 dup<?> 

main : mou cx, 13 

lea di,yy 

next : mou ax, 0 

mou dx,0 

call fact 

loop next 

hit 

fact proc near 

mou [di ] , dx 

push dx 

in c d i 

in c ax 

add dx,ax 

mou [di ] , dx 

push dx 
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